inherited frmPromocao: TfrmPromocao
  Left = 293
  Top = 106
  Caption = ''
  ClientHeight = 430
  ClientWidth = 720
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 393
    Width = 720
  end
  inherited Panel2: TPanel
    Width = 720
    Height = 393
    inherited Panel3: TPanel
      Width = 718
      Caption = 'Promo'#231#227'o'
      inherited GroupBox1: TGroupBox
        Left = 639
      end
    end
    inherited Panel4: TPanel
      Width = 718
      Height = 351
      object Label10: TLabel [0]
        Left = 12
        Top = 11
        Width = 37
        Height = 13
        Caption = 'Produto'
      end
      object Label1: TLabel [1]
        Left = 24
        Top = 56
        Width = 23
        Height = 13
        Caption = 'Data'
      end
      object Label2: TLabel [2]
        Left = 112
        Top = 64
        Width = 88
        Height = 13
        Caption = 'P'#231'o Tabela Varejo'
      end
      object Label3: TLabel [3]
        Left = 208
        Top = 64
        Width = 32
        Height = 13
        Caption = 'Label3'
      end
      inherited DBGrid1: TDBGrid
        Top = 134
        Width = 710
      end
      inherited SbHints: TStatusBar
        Top = 328
        Width = 710
      end
      object EditCodProduto: TEdit
        Left = 12
        Top = 23
        Width = 119
        Height = 21
        Hint = 'Codigo do produto'
        CharCase = ecUpperCase
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object BitBtnProduto: TBitBtn
        Left = 131
        Top = 22
        Width = 25
        Height = 24
        Hint = 'Pesquisa Item.'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        TabStop = False
      end
      object EditDescriProduto: TEdit
        Left = 155
        Top = 23
        Width = 433
        Height = 21
        Hint = 'Exibe Descri'#231#227'o do Item.'
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 4
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Promocoes
    Left = 128
    Top = 208
  end
  object SQLC_Promocoes: TSQLClientDataSet
    CommandText = 'select * from PROMOCAO where PRO_IDFCOD= :PRO_IDFCOD'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'PRO_IDFCOD'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 128
    Top = 264
  end
end
